home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 July / macformat-092.iso / Broderbund Demo / DemoData / _menu.Dxr / 00004_DemoMgr.ls < prev    next >
Encoding:
Text File  |  1997-09-03  |  733 b   |  39 lines
  1. property demoList, myDemo
  2.  
  3. on new me
  4.   set demoList to [:]
  5.   set myDemo to EMPTY
  6.   return me
  7. end
  8.  
  9. on addDemo me, demoName, pathName, type
  10.   set demoProp to [:]
  11.   setaProp(demoProp, #pathName, pathName)
  12.   setaProp(demoProp, #type, type)
  13.   setaProp(demoList, demoName, demoProp)
  14. end
  15.  
  16. on demoExists me, demoName
  17.   if voidp(getaProp(demoList, demoName)) then
  18.     return 0
  19.   else
  20.     return 1
  21.   end if
  22. end
  23.  
  24. on demoPath me, demoName
  25.   if voidp(getaProp(demoList, demoName)) then
  26.     return EMPTY
  27.   else
  28.     return getProp(getProp(demoList, demoName), #pathName)
  29.   end if
  30. end
  31.  
  32. on demoType me, demoName
  33.   if voidp(getaProp(demoList, demoName)) then
  34.     return EMPTY
  35.   else
  36.     return getProp(getProp(demoList, demoName), #type)
  37.   end if
  38. end
  39.